Old Testament Foundatiosn with Philip Yancey/Old Testament Foundatiosn with Philip Yancey - Disc 1.iso/pc/data/discover.dir/00042_script movie.ls

Text File | 1996-09-06 | 845 b | 36 lines

on startMovie
  global gOnIBM
  identifyPlatform()
  formatDisplayFields()
end

on formatDisplayFields
  global gOnIBM
  if gOnIBM then
    set the textFont of field "pkdisplaytext" to "Arial"
    set the textSize of field "pkdisplaytext" to 12
  else
    set the textFont of field "pkdisplaytext" to "Geneva"
    set the textSize of field "pkdisplaytext" to 12
  end if
end

on showResource
  global gResourceArticle, gOnIBM
  if gOnIBM then
    set mypath to the pathName & "DI_RES\" & gResourceArticle
  else
    set mypath to the pathName & "DI_RES:" & gResourceArticle
  end if
  set gReadFile to FileIO(mnew, "read", mypath)
  if not objectp(gReadFile) then
    exit
  end if
  set myData to gReadFile(mReadFile)
  gReadFile(mdispose)
  put myData into field "pkdisplaytext"
  pupSprites(1, 48, 0)
  updateStage()
  go("ShowResource")
end